program Project1; //Zadanie 5.10

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=10;
  krok=0.5;

var
  i:integer;
  x,y:real;

function oblicz(var a:real):real; //definicja i deklaracja funkcji oblicz()
  begin
    oblicz:=a*a+1;
  end;

begin
  write('    x    | ');
  writeln('     y  ');
  writeln('--------------------');;
  for i := 0 to n do
    begin
      y:= oblicz(x); //wywolanie funkcji oblicz() i przypisanie jej wartosci zmiennej y
      write(x:6:2,'   |  ');
      writeln(y:6:2);
      x:=x+krok;
    end;

  readln;//czeka na nacisniecie klawisza ENTER
end.
